home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / card_5823.txt < prev    next >
Text File  |  1989-04-11  |  16KB  |  664 lines
  1. -- card: 5823 from stack: in
  2. -- bmap block id: 5909
  3. -- flags: 0000
  4. -- background id: 2640
  5. -- name: south
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global boxText
  9.   put boxText into bg fld 1
  10. end openCard
  11.  
  12. on closeCard
  13.   hide cd fld 1
  14. end closeCard
  15.  
  16. on arrowKey which
  17.   if which is "up" then send mouseUp to cd btn 2
  18. end arrowKey
  19.  
  20.  
  21.  
  22. -- part 1 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=435 top=234 right=254 bottom=455
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 29001 / 29001
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: West
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.  
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 2 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=454 top=215 right=235 bottom=474
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 29019 / 29019
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: North
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   set cursor to watch
  56.   visual dissolve fast
  57.   go cd "central"
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=454 top=253 right=273 bottom=474
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 29004 / 29004
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: South
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: 2000
  79. -- rect: left=473 top=234 right=254 bottom=493
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 29002 / 29002
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: East
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.  
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=225 top=254 right=266 bottom=237
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: 31Huntington
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   global station,stationNum,done,startEnd,tripOn,infoOn
  110.   if infoOn + tripOn = 0 then
  111.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  112.     exit mouseUp
  113.   end if
  114.   put 31 into foo
  115.   put the short name of me into station
  116.   SetupTrip foo
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 6 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=225 top=229 right=241 bottom=237
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: 21Eisenhower Avenue
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global station,stationNum,done,startEnd,tripOn,infoOn
  136.   if infoOn + tripOn = 0 then
  137.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  138.     exit mouseUp
  139.   end if
  140.   put 21 into foo
  141.   put the short name of me into station
  142.   SetupTrip foo
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 7 (button)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=225 top=208 right=220 bottom=237
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: 33King Street
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   global station,stationNum,done,startEnd,tripOn,infoOn
  162.   if infoOn + tripOn = 0 then
  163.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  164.     exit mouseUp
  165.   end if
  166.   put 33 into foo
  167.   put the short name of me into station
  168.   SetupTrip foo
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 8 (button)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=225 top=189 right=201 bottom=237
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: 7Braddock Road
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   global station,stationNum,done,startEnd,tripOn,infoOn
  188.   if infoOn + tripOn = 0 then
  189.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  190.     exit mouseUp
  191.   end if
  192.   put 7 into foo
  193.   put the short name of me into station
  194.   SetupTrip foo
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 9 (button)
  200. -- low flags: 00
  201. -- high flags: 0000
  202. -- rect: left=249 top=131 right=143 bottom=261
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: 40National Airport
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   global station,stationNum,done,startEnd,tripOn,infoOn
  214.   if infoOn + tripOn = 0 then
  215.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  216.     exit mouseUp
  217.   end if
  218.   put 40 into foo
  219.   put the short name of me into station
  220.   SetupTrip foo
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 10 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=242 top=118 right=130 bottom=254
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: 15Crystal City
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global station,stationNum,done,startEnd,tripOn,infoOn
  240.   if infoOn + tripOn = 0 then
  241.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  242.     exit mouseUp
  243.   end if
  244.   put 15 into foo
  245.   put the short name of me into station
  246.   SetupTrip foo
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 11 (button)
  252. -- low flags: 00
  253. -- high flags: 0000
  254. -- rect: left=231 top=111 right=123 bottom=243
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: 43Pentagon City
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   global station,stationNum,done,startEnd,tripOn,infoOn
  266.   if infoOn + tripOn = 0 then
  267.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  268.     exit mouseUp
  269.   end if
  270.   put 43 into foo
  271.   put the short name of me into station
  272.   SetupTrip foo
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 12 (button)
  278. -- low flags: 00
  279. -- high flags: 0000
  280. -- rect: left=231 top=99 right=111 bottom=243
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: 42Pentagon
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   global station,stationNum,done,startEnd,tripOn,infoOn
  292.   if infoOn + tripOn = 0 then
  293.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  294.     exit mouseUp
  295.   end if
  296.   put 42 into foo
  297.   put the short name of me into station
  298.   SetupTrip foo
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 13 (button)
  304. -- low flags: 00
  305. -- high flags: 0000
  306. -- rect: left=211 top=67 right=79 bottom=223
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: 3Arlington Cemetary
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   global station,stationNum,done,startEnd,tripOn,infoOn
  318.   if infoOn + tripOn = 0 then
  319.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  320.     exit mouseUp
  321.   end if
  322.   put 3 into foo
  323.   put the short name of me into station
  324.   SetupTrip foo
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 14 (button)
  330. -- low flags: 00
  331. -- high flags: 0000
  332. -- rect: left=197 top=47 right=59 bottom=209
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: 47Rosslyn
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   global station,stationNum,done,startEnd,tripOn,infoOn
  344.   if infoOn + tripOn = 0 then
  345.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  346.     exit mouseUp
  347.   end if
  348.   put 47 into foo
  349.   put the short name of me into station
  350.   SetupTrip foo
  351. end mouseUp
  352.  
  353.  
  354.  
  355. -- part 15 (button)
  356. -- low flags: 00
  357. -- high flags: 0000
  358. -- rect: left=184 top=53 right=65 bottom=196
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 1
  362. -- font id: 0
  363. -- text size: 12
  364. -- style flags: 0
  365. -- line height: 16
  366. -- part name: 14Court House
  367. ----- HyperTalk script -----
  368. on mouseUp
  369.   global station,stationNum,done,startEnd,tripOn,infoOn
  370.   if infoOn + tripOn = 0 then
  371.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  372.     exit mouseUp
  373.   end if
  374.   put 14 into foo
  375.   put the short name of me into station
  376.   SetupTrip foo
  377. end mouseUp
  378.  
  379.  
  380.  
  381. -- part 16 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=169 top=61 right=73 bottom=181
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 0 / 0
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: 12Clarendon
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   global station,stationNum,done,startEnd,tripOn,infoOn
  396.   if infoOn + tripOn = 0 then
  397.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  398.     exit mouseUp
  399.   end if
  400.   put 12 into foo
  401.   put the short name of me into station
  402.   SetupTrip foo
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 17 (button)
  408. -- low flags: 00
  409. -- high flags: 0000
  410. -- rect: left=154 top=69 right=81 bottom=166
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: 58Virginia Square-GMU
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   global station,stationNum,done,startEnd,tripOn,infoOn
  422.   if infoOn + tripOn = 0 then
  423.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  424.     exit mouseUp
  425.   end if
  426.   put 58 into foo
  427.   put the short name of me into station
  428.   SetupTrip foo
  429. end mouseUp
  430.  
  431.  
  432.  
  433. -- part 18 (button)
  434. -- low flags: 00
  435. -- high flags: 0000
  436. -- rect: left=132 top=74 right=86 bottom=144
  437. -- title width / last selected line: 0
  438. -- icon id / first selected line: 0 / 0
  439. -- text alignment: 1
  440. -- font id: 0
  441. -- text size: 12
  442. -- style flags: 0
  443. -- line height: 16
  444. -- part name: 4Ballston
  445. ----- HyperTalk script -----
  446. on mouseUp
  447.   global station,stationNum,done,startEnd,tripOn,infoOn
  448.   if infoOn + tripOn = 0 then
  449.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  450.     exit mouseUp
  451.   end if
  452.   put 4 into foo
  453.   put the short name of me into station
  454.   SetupTrip foo
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 19 (button)
  460. -- low flags: 00
  461. -- high flags: 0000
  462. -- rect: left=80 top=74 right=86 bottom=92
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: 20East Falls Church
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   global station,stationNum,done,startEnd,tripOn,infoOn
  474.   if infoOn + tripOn = 0 then
  475.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  476.     exit mouseUp
  477.   end if
  478.   put 20 into foo
  479.   put the short name of me into station
  480.   SetupTrip foo
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part 20 (button)
  486. -- low flags: 00
  487. -- high flags: 0000
  488. -- rect: left=270 top=51 right=63 bottom=282
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 0 / 0
  491. -- text alignment: 1
  492. -- font id: 0
  493. -- text size: 12
  494. -- style flags: 0
  495. -- line height: 16
  496. -- part name: 50Smithsonian
  497. ----- HyperTalk script -----
  498. on mouseUp
  499.   global station,stationNum,done,startEnd,tripOn,infoOn
  500.   if infoOn + tripOn = 0 then
  501.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  502.     exit mouseUp
  503.   end if
  504.   put 50 into foo
  505.   put the short name of me into station
  506.   SetupTrip foo
  507. end mouseUp
  508.  
  509.  
  510.  
  511. -- part 21 (button)
  512. -- low flags: 00
  513. -- high flags: 0000
  514. -- rect: left=286 top=61 right=73 bottom=298
  515. -- title width / last selected line: 0
  516. -- icon id / first selected line: 0 / 0
  517. -- text alignment: 1
  518. -- font id: 0
  519. -- text size: 12
  520. -- style flags: 0
  521. -- line height: 16
  522. -- part name: 35L'Enfant Plaza
  523. ----- HyperTalk script -----
  524. on mouseUp
  525.   global station,stationNum,done,startEnd,tripOn,infoOn
  526.   if infoOn + tripOn = 0 then
  527.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  528.     exit mouseUp
  529.   end if
  530.   put 35 into foo
  531.   put the short name of me into station
  532.   SetupTrip foo
  533. end mouseUp
  534.  
  535.  
  536.  
  537. -- part 22 (button)
  538. -- low flags: 00
  539. -- high flags: 0000
  540. -- rect: left=300 top=61 right=73 bottom=312
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 0 / 0
  543. -- text alignment: 1
  544. -- font id: 0
  545. -- text size: 12
  546. -- style flags: 0
  547. -- line height: 16
  548. -- part name: 24Federal Center SW
  549. ----- HyperTalk script -----
  550. on mouseUp
  551.   global station,stationNum,done,startEnd,tripOn,infoOn
  552.   if infoOn + tripOn = 0 then
  553.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  554.     exit mouseUp
  555.   end if
  556.   put 24 into foo
  557.   put the short name of me into station
  558.   SetupTrip foo
  559. end mouseUp
  560.  
  561.  
  562.  
  563. -- part 23 (button)
  564. -- low flags: 00
  565. -- high flags: 0000
  566. -- rect: left=318 top=61 right=73 bottom=330
  567. -- title width / last selected line: 0
  568. -- icon id / first selected line: 0 / 0
  569. -- text alignment: 1
  570. -- font id: 0
  571. -- text size: 12
  572. -- style flags: 0
  573. -- line height: 16
  574. -- part name: 10Capitol South
  575. ----- HyperTalk script -----
  576. on mouseUp
  577.   global station,stationNum,done,startEnd,tripOn,infoOn
  578.   if infoOn + tripOn = 0 then
  579.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  580.     exit mouseUp
  581.   end if
  582.   put 10 into foo
  583.   put the short name of me into station
  584.   SetupTrip foo
  585. end mouseUp
  586.  
  587.  
  588.  
  589. -- part 24 (button)
  590. -- low flags: 00
  591. -- high flags: 0000
  592. -- rect: left=338 top=61 right=73 bottom=350
  593. -- title width / last selected line: 0
  594. -- icon id / first selected line: 0 / 0
  595. -- text alignment: 1
  596. -- font id: 0
  597. -- text size: 12
  598. -- style flags: 0
  599. -- line height: 16
  600. -- part name: 19Eastern Market
  601. ----- HyperTalk script -----
  602. on mouseUp
  603.   global station,stationNum,done,startEnd,tripOn,infoOn
  604.   if infoOn + tripOn = 0 then
  605.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  606.     exit mouseUp
  607.   end if
  608.   put 19 into foo
  609.   put the short name of me into station
  610.   SetupTrip foo
  611. end mouseUp
  612.  
  613.  
  614.  
  615. -- part 25 (button)
  616. -- low flags: 00
  617. -- high flags: 0000
  618. -- rect: left=360 top=61 right=73 bottom=372
  619. -- title width / last selected line: 0
  620. -- icon id / first selected line: 0 / 0
  621. -- text alignment: 1
  622. -- font id: 0
  623. -- text size: 12
  624. -- style flags: 0
  625. -- line height: 16
  626. -- part name: 44Potomac Ave.
  627. ----- HyperTalk script -----
  628. on mouseUp
  629.   global station,stationNum,done,startEnd,tripOn,infoOn
  630.   if infoOn + tripOn = 0 then
  631.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  632.     exit mouseUp
  633.   end if
  634.   put 44 into foo
  635.   put the short name of me into station
  636.   SetupTrip foo
  637. end mouseUp
  638.  
  639.  
  640.  
  641. -- part 26 (field)
  642. -- low flags: 81
  643. -- high flags: 2004
  644. -- rect: left=142 top=99 right=223 bottom=366
  645. -- title width / last selected line: 0
  646. -- icon id / first selected line: 0 / 0
  647. -- text alignment: 1
  648. -- font id: 0
  649. -- text size: 12
  650. -- style flags: 0
  651. -- line height: 16
  652. -- part name: 
  653. ----- HyperTalk script -----
  654. on mouseUp
  655.   hide me
  656.   put empty into me
  657. end mouseUp
  658.  
  659.  
  660.  
  661. -- part contents for background part 10
  662. ----- text -----
  663. Click on a station to get info
  664. (or click this box to cancel)